home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (PO) / Nibble Volume 09, No. 12 (1988-12)(MicroSPARC)(Side A)[a].zip / Nibble Volume 09, No. 12 (1988-12)(MicroSPARC)(Side A)[a].po / PIC.CREATE.S < prev    next >
Text File  |  1996-12-24  |  2KB  |  68 lines
  1. *
  2. * PIC.CREATE
  3. * By Peter Stubbs
  4. * Copyright(c) 1988
  5. * MicroSPARC, Inc.
  6. * Concord, MA 01742
  7. *
  8. * Merlin 16
  9. *
  10.           TR ADR
  11.           XC
  12.           XC
  13.           ORG $300
  14.  
  15. VIDSAVE   EQU $9
  16. PIC       EQU $E12000    ;Start of Super res screen
  17. SCB       EQU $E19D00    ;Start of SCB's
  18. PALZERO   EQU $E19E00    ;Location of palette $0
  19. NEWVIDEO  EQU $C029      ;Super Res/linear softswitch
  20.  
  21.           SEC            ;EMULATION MODE ON
  22.           XCE
  23.           MX %11
  24.           LDA NEWVIDEO
  25.           STA VIDSAVE    ;Save for later
  26.           ORA #%01000000 ;Turn on linear addressing
  27.           STA NEWVIDEO
  28. * set up the SCB's to all point at palette zero
  29.           LDX #$00
  30.           TXA
  31. LOOP1     STAL SCB,x
  32.           INX
  33.           CPX #$C8
  34.           BEQ MAKE_PAL
  35.           BRA LOOP1
  36. MAKE_PAL  CLC            ;Native mode on
  37.           XCE
  38.           MX %00
  39.           REP #$30
  40. * Create a palette of the 15 intensities of pink
  41.           LDA #$0000
  42.           TAX
  43. LOOP2     STAL PALZERO,X
  44.           CLC
  45.           ADC #$0101     ;Increase intensity by 1
  46.           INX
  47.           INX
  48.           CPX #$0020
  49.           BNE LOOP2
  50. * Create a "picture" of shaded columns
  51.           LDA #$0000
  52.           TAX
  53. LOOP      STAL PIC,X
  54.           INX
  55.           INX
  56.           CLC
  57.           ADC #$1111
  58.           BCC SKIP
  59.           LDA #$0000
  60. SKIP      CPX #$7D00
  61.           BNE LOOP
  62.           SEC            ;back to emulation mode
  63.           XCE
  64.           LDA VIDSAVE    ;Restore original value
  65.           STA NEWVIDEO
  66.           RTS
  67. END       CHK            ;MERLIN chk = 14
  68.